fb_pricecat <- function(idFB = NA, server = 'http://www.fishbase.tw/')
	{
  require("XML")
  require("stringr")
  require('RCurl')

	url <- NA;
  g <- data.frame(idFB=idFB, priceCat = NA)
  if (is.na(idFB))
		{
		print("idFB is required!!")
		}
	if (!is.na(idFB)) 
		{
		url <- paste(server, "includes/ajax/price.js.php?id=",idFB, sep = "")
		}
  ## Con esto se podria digerir la tabla si Duncan no me responde que puede estar pasando!
  
  txt <- htmlParse(url) 
  g$priceCat <- xpathSApply(txt, "//a", function(x) xmlValue(x))
	return(g)
	}















